| From: | oruk_amigan |
| Date: | 9 May 2000 at 10:23:48 |
| Subject: | Re: Changing screen font |
Hi,
>I wonder how to change menu (screen) font for OPENED screen.
>I hope it's possible without closing the screen...
>
>PS. There is no windows on the screen.
It's difficult to say because I have never done this. I think you made need
to close and re-open, rarther like Workbench.
I'd do something like:
Grab Screen Structure
Close Screen
Change values in Screen\Font
Re open screen.
This code is probably wrong because I thing OpenScreen_ needs a NewScreen structure;
not just a Screen structure... :(
*scr.Screen=Peek.l(Addr Screen (0)) ; where 0 is the id of the screen you are
fiddling with :)
If *scr
; if it's really there
CloseScreen_ *scr
font_name$="times.font"
size.b=13
*scr\Font\ta_Name=&font_name$
*scr\Font\ta_YSize=size
OpenScreen_ *scr
EndIf
Like I say, I'm pretty sure that OpenScreen and CloseScreen need a NewScreen
structure, from the old 1.2/1.3 days ;). Your best bet is to try it, if it
crashes, define a newscreen structure, and copy the values from the Screeen
structure to the NewScreen structure etc.
Hope this helps. I'm pretty sure that changing the values in the screen structure
would either do nothing until closing it and re-opening it; or it will make
menus look weird or something, just try it is all I say :)
All the best,
Nick.
/// Omega Research UK Amiga Software Developers
__ /// -------------------------------------------
\\\/// Nick Lamburn
\/// ----------------------------------------------
WWW URL: http://www.omegaresearchuk.co.uk
---------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: blitz-list-unsubscribe@netsoc.ucd.ie
For additional commands, e-mail: blitz-list-help@netsoc.ucd.ie